Star Trek Starfleet Academy Mini Omnipedia/MINI_OMNI.ISO/pc/omni_v2.dxr/00374_Media Display.ls

Text File | 1996-04-15 | 9.6 KB | 340 lines

global gthumbn1spr, gthumbn2spr, gthumbn3spr, gthumbn4spr, gthumbn5spr, gthumbholdcst, gVideoButtspr, gAudioButtspr, gResrcButtspr, gpictholdcst, gGlobalStepCount, gmediafile1, gmediafile2, gmediafile3, gmediafile4, gmediafile5, gPDL, gthevideofile, gVideoName, gAudioName, gResourceName, gcurrentmedialist, gNewWin, gActiveResTopWin, gOnOffSwitch, gAssetPath, gInputField, gPhotoSND, gTopicLocList, gTopIsPaused, gActiveTopWin, gPiconGarage, gNumofpicons, gPiconcastloc, gModeState, gQTSprite, gTopicBase, gthumbnRefspr, oINTERfaceTopicControl, oWinKey, oTopicControl, oVidCD, gTopicIsText, gStylingNeedF, gNormalVidButtCast, gSwapCDVidButtCast

on hInitThumbholders
  set gthumbnRefspr to 41
  set gthumbn1spr to 42
  set gthumbn2spr to 43
  set gthumbn3spr to 44
  set gthumbn4spr to 45
  set gthumbn5spr to 46
  set gVideoButtspr to 17
  set gAudioButtspr to 8
  set gthumbholdcst to the number of cast "thumbnail placeholder"
  set gNormalVidButtCast to the number of cast "video"
  set gSwapCDVidButtCast to the number of cast "Video clip on CD button"
end

on hSetupThumbs
  puppetSprite(gthumbn1spr, 1)
  puppetSprite(gthumbn2spr, 1)
  puppetSprite(gthumbn3spr, 1)
  puppetSprite(gthumbn4spr, 1)
  puppetSprite(gthumbn5spr, 1)
  set the castNum of sprite gthumbn1spr to gthumbholdcst
  set the castNum of sprite gthumbn2spr to gthumbholdcst
  set the castNum of sprite gthumbn3spr to gthumbholdcst
  set the castNum of sprite gthumbn4spr to gthumbholdcst
  set the castNum of sprite gthumbn5spr to gthumbholdcst
  updateStage()
  set gmediafile1 to EMPTY
  set gmediafile2 to EMPTY
  set gmediafile3 to EMPTY
  set gmediafile4 to EMPTY
  set gmediafile5 to EMPTY
end

on hPurgeMedia
  hUpdateWin()
  hSetupThumbs()
  hResetMediaButts()
  mClearCDNum(oVidCD)
end

on hPurgeMediaHprocessCHRO
  hUpdateWin()
  hResetMediaButts()
  mClearCDNum(oVidCD)
end

on hPurgeMediaCHRO
  hUpdateWin()
  hSetupThumbs()
end

on hResetMediaButts
  puppetSprite(gVideoButtspr, 0)
  puppetSprite(gAudioButtspr, 0)
  go(the frame)
end

on hDisplayPicons
  hearit(gPhotoSND)
  if gNumofpicons = 1 then
    set the castNum of sprite gthumbn1spr to getAt(gPiconcastloc, 1)
    hHideOpenPicons()
    updateStage()
  else
    set the castNum of sprite gthumbn1spr to getAt(gPiconcastloc, 1)
    repeat with i = 1 to gNumofpicons - 1
      set the castNum of sprite (gthumbn1spr + i) to getAt(gPiconcastloc, 1 + i)
    end repeat
    hHideOpenPicons()
    updateStage()
  end if
end

on hFetchMedia
  if count(gcurrentmedialist) > 0 then
    set gNumofpicons to getAt(gcurrentmedialist, 1)
    set gPiconcastloc to getAt(gcurrentmedialist, 2)
    set LQTshortnm to getAt(gcurrentmedialist, 4)
    set Laudioflag to getAt(gcurrentmedialist, 5)
    if gNumofpicons = 0 then
      nothing()
    else
      hDisplayPicons()
    end if
    if LQTshortnm <> 0 then
      mEvaluateVidPlay(oVidCD, LQTshortnm)
    else
      nothing()
    end if
    if Laudioflag <> 0 then
      hShowAudButton(Laudioflag)
    else
      nothing()
    end if
  else
    hReportStatus("This is a text-only entry.")
  end if
end

on hShowVidButton LQTflag
  hReportStatus("There's a Video Clip for this entry.")
  puppetSprite(gVideoButtspr, 1)
  set the castNum of sprite gVideoButtspr to gNormalVidButtCast
  set the locH of sprite gVideoButtspr to 34
  set the locV of sprite gVideoButtspr to 316
  updateStage()
  set gVideoName to LQTflag
end

on hShowAltVidButton pQTshortnm
  hReportStatus("There's a Video Clip for this entry on another CD.")
  puppetSprite(gVideoButtspr, 1)
  set the castNum of sprite gVideoButtspr to gSwapCDVidButtCast
  set the locH of sprite gVideoButtspr to 34
  set the locV of sprite gVideoButtspr to 316
  updateStage()
  set gVideoName to pQTshortnm
end

on hShowAudButton Laudioflag
  hReportStatus("There's an Audio Clip for this entry.")
  puppetSprite(gAudioButtspr, 1)
  set the locH of sprite gAudioButtspr to 34
  set the locV of sprite gAudioButtspr to 349
  updateStage()
  set gAudioName to Laudioflag
end

on hFetchResMedia
  global gCurrentResAttrib, gAssetPath, gFirstChar, gPlaying, gPlayAll, oVidCD, gNewWin, gComputerTypeK
  hHideThumbs()
  hStopPicManQT()
  if mCheckForHomeCD(oVidCD, "hFetchResMedia") then
    if getAt(gCurrentResAttrib, 1) = 1 then
      if not voidp(gActiveResTopWin) then
        forget(window gActiveResTopWin)
      end if
      set the fileName of cast the number of cast "BlankM.DIR" to the pathName & "BL" & gPDL & "BlankM.DIR"
      set the fileName of cast "BlankM.dir" to gAssetPath & gFirstChar & gPDL & getAt(gCurrentResAttrib, 2) & "1M.DXR"
      hRestoreLockWins()
    else
      hStoreLockWins()
      hHideThumbs()
      if the fileName of cast the number of cast "BlankM.DIR" <> (the pathName & "BL" & gPDL & "BlankM.DIR") then
        set the fileName of cast the number of cast "BlankM.DIR" to the pathName & "BL" & gPDL & "BlankM.DIR"
      end if
      if not voidp(gActiveResTopWin) then
        forget(window gActiveResTopWin)
      end if
      set gFirstChar to char 1 of string(getAt(gCurrentResAttrib, 2))
      if gComputerTypeK = #WIN then
        set gNewWin to gAssetPath & gFirstChar & gPDL & getAt(gCurrentResAttrib, 2) & "1W.dir"
      else
        set gNewWin to gAssetPath & gFirstChar & gPDL & getAt(gCurrentResAttrib, 2) & "1M.dir"
      end if
      set the windowType of window gNewWin to 2
      set theSL to the stageLeft
      set theST to the stageTop
      set thewinht to 319
      set thewinwd to 563
      set offSetL to theSL + 77
      set offSetT to theST + (480 - 319)
      set theRect to rect(offSetL, offSetT, thewinwd + offSetL, thewinht + offSetT)
      set the rect of window gNewWin to theRect
      open(window gNewWin)
      set gActiveResTopWin to gNewWin
      tell window gNewWin
        mSetbasicWinKeys(oWinKey, window gNewWin)
      end tell
    end if
  end if
end

on hFetchTopicMedia Pthesearchtext
  global gCurrentTopicAttrib, gAssetPath, gFirstChar, oVidCD, gNewWin
  hHideThumbs()
  if not voidp(gActiveResTopWin) then
    if string(the windowList) contains gActiveResTopWin then
      hCloseTopWin()
      forget(window gActiveResTopWin)
    end if
  end if
  if count(gCurrentTopicAttrib) = 1 then
    if mCheckForHomeCD(oVidCD, "hFetchTopicMedia" & Pthesearchtext) then
      set gTopicIsText to 0
      set gNewWin to gAssetPath & getAt(gCurrentTopicAttrib, 1) & gPDL & getAt(gCurrentTopicAttrib, 1) & "1M.dir"
      set the windowType of window gNewWin to 2
      set theSL to the stageLeft
      set theST to the stageTop
      set thewinht to 304
      set thewinwd to 563
      set offSetL to theSL + 77
      set offSetT to theST + (480 - 304)
      set theRect to rect(offSetL, offSetT, thewinwd + offSetL, thewinht + offSetT)
      set the rect of window gNewWin to theRect
      open(window gNewWin)
      set gActiveResTopWin to gNewWin
      set the visible of sprite gTopicBase to 1
      hResumeTopWin()
      mForceTopHlt(oINTERfaceTopicControl, 1)
      tell window gNewWin
        mSetbasicWinKeys(oWinKey, window gNewWin)
      end tell
      set the visible of sprite gTopicBase to 1
      hResumeTopWin()
      mForceTopHlt(oINTERfaceTopicControl, 1)
      set gStylingNeedF to 1
    end if
  else
    set gTopicIsText to 1
    set gStylingNeedF to 1
    mHideTopicVisibles(oTopicControl)
    set the visible of sprite gTopicBase to 0
    hTextEntryProcess(Pthesearchtext)
  end if
end

on hPauseTopWin
  hStoreTopLocation()
  tell window gActiveResTopWin
    go(marker(0))
  end tell
  tell window gActiveResTopWin
    hStopTopQT()
  end tell
  set gTopIsPaused to 1
end

on hRewindTopWin
  tell window gActiveResTopWin
    hStopTopQT()
  end tell
  tell window gActiveResTopWin
    set x to line 1 of the labelList
  end tell
  tell window gActiveResTopWin
    go(label(x))
  end tell
  tell window gActiveResTopWin
    InitTopicText(oTopicControl)
  end tell
  hStoreTopLocation()
end

on hResumeTopWin
  set vFrametoJump to getaProp(gTopicLocList, gActiveResTopWin)
  if not voidp(vFrametoJump) then
    tell window gActiveResTopWin
      go(vFrametoJump)
    end tell
  end if
  tell window gActiveResTopWin
    hStartTopQT()
  end tell
  set gTopIsPaused to 0
end

on hCloseTopWin
  hshutup()
  tell window gActiveResTopWin
    hshutup()
  end tell
  hStoreTopLocation()
  tell window gActiveResTopWin
    hStopTopQT()
  end tell
  set gTopIsPaused to 0
  mHideTopicVisibles(oTopicControl)
end

on hshutup
  puppetSound(0)
  sound stop 1
  sound stop 2
end

on hStoreTopLocation
  tell window gActiveResTopWin
    set vTopPauseFrame to marker(0)
  end tell
  setaProp(gTopicLocList, gActiveResTopWin, vTopPauseFrame)
end

on hStopTopQT
  set x to the castNum of sprite gQTSprite
  if x > 0 then
    if the castType of cast x = #digitalVideo then
      set the movieRate of sprite gQTSprite to 0
      updateStage()
    end if
  end if
end

on hStartTopQT
  set x to the castNum of sprite gQTSprite
  if x > 0 then
    if the castType of cast x = #digitalVideo then
      set the movieRate of sprite gQTSprite to 1
      updateStage()
    end if
  end if
end

on hOpenAudio
  global oVidCD
  if gOnOffSwitch = 1 then
    sound stop 2
    set gOnOffSwitch to 0
  else
    if mCheckForHomeCD(oVidCD, "hOpenAudio") then
      set gFirstChar to char 1 of string(gAudioName)
      sound playFile 2, gAssetPath & gFirstChar & gPDL & gAudioName
      set gOnOffSwitch to 1
    end if
  end if
end

on hShowResource
  hSetMode(#Resources)
  put string(gResourceName) into field gInputField
  hilite char 999 of field gInputField
  hMiniFind()
end

on hStopPicManQT
  global gPlaying, gPlayAll, gActiveResTopWin
  if gPlaying = 1 then
    tell window gActiveResTopWin
      hstopPicardmovie()
    end tell
  end if
  if gPlayAll = 1 then
    tell window gActiveResTopWin
      hstopPicardmovie()
    end tell
  end if
end